home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ MSO2003 Clear MRU PPT 1.xpl < prev    next >
Text File  |  2004-01-26  |  965b  |  39 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="5"
  3. "COUNT"="1"
  4. "UIPATH 1"="Program Options\Microsoft Office\MS Office 2003\PowerPoint"
  5. "NAME"="Clear Recent File List"
  6. "VERSION"="1.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Clear recent file list"
  9. "DESCRIPTION 1"="If you do not want that other people can see the items you have opened, click the button."
  10. "AUTHOR"="Xteq Systems"
  11. "CONTACTURL"="http://www.xteq.com/"
  12. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  13. "COMMENT 1"=" "
  14.  
  15.  
  16. sP="HKCU\Software\Microsoft\Office\11.0\PowerPoint\Recent File List\"
  17.  
  18. Sub Plugin_Initialize 
  19.   If RegPathExists(sP)=false then
  20.      Disable()
  21.   end if 
  22. End Sub
  23.  
  24. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  25.  if ElementIndex=1 then    
  26.     i=RegEnumValues(sP)
  27.     for l=1 to i 
  28.         s=RegEnumElement(l) 
  29.         Call RegDeleteValue(sP & s)
  30.     next 
  31.  
  32.     Call MsgInformation("Cleared!")
  33.  end if
  34.  
  35. End Sub
  36.  
  37. Sub Plugin_Terminate 
  38. End Sub
  39.